home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / pwd.asm < prev    next >
Encoding:
Assembly Source File  |  1985-06-03  |  1.8 KB  |  54 lines
  1.  PAGE ,132 ; CONDENSED PRINT
  2.          TITLE     PWD - Print Working Directory
  3. ;
  4. ;        This program prints the pathname to the current
  5. ;        working directory under DOS 2.0
  6. ;        From PC Tech Journal, Feb 84
  7. ;
  8. ;        Designed to be run as a .COM program
  9. ;
  10. DOS      MACRO     FUNCTION            ;Perform DOS function call
  11.          MOV       AH,FUNCTION
  12.          INT       021h
  13.          ENDM
  14. ;
  15. PUTC     MACRO     CHAR                ;Output a char to the console
  16.          MOV       DL,CHAR
  17.          DOS       2
  18.          ENDM
  19. ;
  20. CODE     SEGMENT
  21.          ASSUME    CS:CODE,DS:CODE,ES:CODE
  22. ;
  23.          ORG       0100h               ;Required for COM programs
  24. START:
  25. ;                                      ;First get and print current drive
  26.          DOS       019h                ;Get default drive from DOS
  27.          ADD       AL,'A'              ;Make printable
  28.          PUTC      AL
  29.          PUTC      ':'
  30.          PUTC      '\'
  31. ;
  32. ;                            ;Get and print current pathname
  33. ;
  34.          MOV       DL,0
  35.          LEA       SI,PATHNAME
  36.          DOS       047h                ;Request pathname from DOS
  37. ;
  38. PRINTLOOP:
  39.          CMP       BYTE PTR[SI],0      ;Pathname terminated by 0
  40.          JZ        EXIT
  41.          PUTC      [SI]
  42.          INC       SI
  43.          JMP       PRINTLOOP
  44. ;
  45. EXIT:
  46.          INT       020h                ;Back to DOS
  47. ;
  48. PATHNAME DB        65 DUP (?)          ;DOS will put pathname here
  49. ;
  50.  
  51. ;  NORMAL PRINT
  52. CODE     ENDS
  53.          END       START
  54.